home *** CD-ROM | disk | FTP | other *** search
/ The Mac 13 / the-mac-13.iso / On The Rom / 100 Best Mac CD-ROMs Selection / The Treasure Hunt / SHARED.Dxr / 00996_flag.ls < prev    next >
Encoding:
Text File  |  1994-09-16  |  641 b   |  26 lines
  1. on mouseDown
  2.   if not (the preLoad of cast 993) then
  3.     preLoadCast(993)
  4.   end if
  5.   repeat while the mouseDown
  6.     set the locV of sprite the clickOn to the mouseV
  7.     if the mouseV >= 161 then
  8.       set the locV of sprite the clickOn to 161
  9.     else
  10.       if the mouseV <= 49 then
  11.         set the locV of sprite the clickOn to 49
  12.       end if
  13.     end if
  14.     updateStage()
  15.     if not (the soundBusy of 1) then
  16.       puppetSound("volume")
  17.       updateStage()
  18.     end if
  19.     startTimer()
  20.     repeat while the timer < 1
  21.       nothing()
  22.     end repeat
  23.     set the soundLevel to 8 - ((the locV of sprite the clickOn - 49) / 14)
  24.   end repeat
  25. end
  26.